<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>8174</cardID>
<listID>2586</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>on startUpglobal lastCardglobal lastBook-- put "go to card 1 of stack Guinness:mac:main" into lastCardset lockscreen to trueif "Audio Help" is in stacksInUse then stop using stack "Audio Help"set numberFormat to "0"-- AddColor install, 16put "Main" into lastBookput the number of this card into lastCard-- delete menu 1delete menu "File"delete menu "Edit"delete menu "Go"delete menu "Font"delete menu "Style"-- create menu "" -- resource...-- create menu "∩ú┐" -- k-- put "About Guinness Encyclopedia" before menuItem 1 of menu 1-- delete menuItem 2 of menu 1create menu "File"put "Page Setup..." into menu "File"put "Print Card" after menuItem "Page Setup..." of menu "File"put "Print Image" after menuItem "Print Card" of menu "File"put "Print Text" after menuItem "Print Image" of menu "File"put "-" after menuItem 4 of menu "File"put "Quit Encyclopedia" after menuItem 5 of menu "File"set the cmdChar of menuItem "Quit Encyclopedia" of menu "File" to "Q"set the cmdChar of menuItem "Print Card" of menu "File" to "P"create menu "Edit"put "Copy Text" into menu "Edit"put "Copy Image" after menuItem "Copy Text" of menu "Edit"set the cmdChar of menuItem "Copy Text" of menu "Edit" to "C"create menu "Go"put "Main" into menu "Go"put "Go Back" after menuItem "Main" of menu "Go"put "Help" after menuItem "Go Back" of menu "Go"put "Gallery" after menuItem "Help" of menu "Go"put "Encyclopedia" after menuItem "Gallery" of menu "Go"put "Explorer" after menuItem "Encyclopedia" of menu "Go"put "Languages" after menuItem "Explorer" of menu "Go"put "Credits" after menuItem "Languages" of menu "Go"create menu "Reader"put "Caption" into menu "Reader"put "Main Text" after menuItem "Caption" of menu "Reader"disable menu "Reader"set lockscreen to false--pass startUpend startUpon AC_Transistionsend AC_Transistionson AC_SetTransistionsend AC_SetTransistionson resumeStackdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"end resumeStackon openCardSend colorMe to this cardpass openCardunlock screenend openCardon doMenu menuItemif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainelse if menuItem is "Gallery" thenWTIgalleryelse if menuItem is "Explorer" thenWTIexploreelse if menuItem is "Credits" thenWTIcreditselse if menuItem is "Encyclopedia" thenWTIencyclelse if menuItem is "Languages" thengo to card 1 of stack "Guinness:mac:language samples" in a new windowelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Quit Encyclopedia" thendoMenu "Quit HyperCard"exit doMenuend ifpass doMenuend doMenuon WTIcreditsgo to card 1 of stack "Guinness:Mac:Credits"end WTIcreditson closeCardglobal lastCardglobal lastBookglobal lastBookN-- put 1 into lastBookNput "Main" into lastBookput the number of this card into lastCard-- put "go to card " & lCard & " of stack "Guinness:mac:main" into lastCardset cursor to 4lock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon openStackset lockscreen to trueAddColor installdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"pass openStackset lockscreen to falseend openStackon closeStackAddColor removepass closeStackend closeStackon WTImaingo to card 1 of stack "Guinness:Mac:Main"end WTImainon WTIhelpgo to card 1 of stack "Guinness:Mac:Help"end WTIhelpon WTIquitdoMenu "Quit HyperCard"end WTIquiton WTIexplorego to card 1 of stack "Guinness:Mac:Explorer"end WTIexploreon WTIgallerygo to card 1 of stack "Guinness:Mac:Gallery"end WTIgalleryon WTIcreditsgo to card 1 of stack "Guinness:Mac:Credits"end WTIcreditson WTIencyclgo to card 1 of stack "Guinness:Mac:Encyclopedia"end WTIencyclon WTIgobackglobal lastCard-- global lastBook-- global lastBookN-- go to card lastCard of lastBookgo to recent cardend WTIgoback</script>
